home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / IRA.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  2KB  |  54 lines
  1. 100 'IRA Savings ("IRA")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "IRA Savings Evaluator" : COLOR 15,0
  4. 130 PRINT
  5. 140 DEFDBL A-Z
  6. 150 DEFINT M-N,Y
  7. 160 MONEYFMT$ = "$$##,###,###.##"
  8. 170 '     Let user enter data
  9. 180 PRINT "Do not enter dollar signs or commas"
  10. 190 PRINT
  11. 200 INPUT "Annual IRA deposit: ", DEPOSIT
  12. 210 INPUT "Annual interest rate (in percent): ", AR
  13. 220 INPUT "Annual inflation rate (in percent): ", INFLATION
  14. 230 INPUT "Marginal tax rate (in percent): ", TAXRATE
  15. 240 INPUT "Penalty for early withdrawal (in percent): ", PENALTY
  16. 250 '     Initialize variables
  17. 260 TAXRATE = TAXRATE / 100
  18. 270 AR = AR / 100
  19. 280 INFLATION = INFLATION / 100
  20. 290 PENALTY = PENALTY / 100
  21. 300 IRABALANCE = 0
  22. 310 AUXBALANCE = 0
  23. 320 REGBALANCE = 0
  24. 330 PRINT
  25. 340 PRINT "Press space bar to continue"
  26. 350 PRINT
  27. 360 '     Compute annual balances
  28. 370 FOR YEAR = 1 TO 60
  29. 380   WHILE INKEY$ = "" : WEND
  30. 390   PRINT
  31. 400   IRABALANCE = IRABALANCE * (1 + AR) + DEPOSIT
  32. 410   REGBALANCE = REGBALANCE + REGBALANCE * AR * (1 - TAXRATE) + DEPOSIT
  33. 420   AUXBALANCE = AUXBALANCE + AUXBALANCE * AR * (1 - TAXRATE) + DEPOSIT *                        TAXRATE
  34. 430   'Find total IRA savings
  35. 440   TOTALIRA = AUXBALANCE + IRABALANCE * (1 - PENALTY - TAXRATE)
  36. 450   INFLATIONADJ = (1 + INFLATION) ^ -YEAR
  37. 460   'Print results
  38. 470   PRINT "Year: "; YEAR
  39. 480   PRINT SPC(10); "IRA Savings"
  40. 490   PRINT
  41. 500   PRINT "Nominal balance: "; TAB(30);
  42. 510   PRINT USING MONEYFMT$; TOTALIRA
  43. 520   PRINT "Inflation-adjusted balance: "; TAB(30);
  44. 530   PRINT USING MONEYFMT$; TOTALIRA * INFLATIONADJ
  45. 540   PRINT
  46. 550   PRINT SPC(10); "Savings Without IRA"
  47. 560   PRINT
  48. 570   PRINT "Nominal balance: "; TAB(30);
  49. 580   PRINT USING MONEYFMT$; REGBALANCE
  50. 590   PRINT "Inflation-adjusted balance: "; TAB(30);
  51. 600   PRINT USING MONEYFMT$; REGBALANCE * INFLATIONADJ
  52. 610 NEXT YEAR
  53. 620 END
  54.